Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\Program Files\StoreLine\Office\Import")
wscript.echo f.Size